Here is a contribution to the Delphi Freeware community. The only thing I ask is if you enhance it, send me a copy. As usual, this software is provided as-is with no expressed or implied warranties whatsoever. ---------------------------------------------------------------------------------- VCL CONTROLS INCLUDED ---------------------------------------------------------------------------------- TMenuButton, TListButton TMenuBitBtn, TLIstBitBtn ---------------------------------------------------------------------------------- INSTALLATION ---------------------------------------------------------------------------------- o Place JBMBTN.PAS & JBMBTN.DCR in any directory in your library search path. o Choose Options/Install Components, and pick JBMTN.PAS The four menu button components will be placed on your Samples Page. ---------------------------------------------------------------------------------- DESCRIPTION ---------------------------------------------------------------------------------- ****************************** * TMenuButton/ TMenuBitBtn * ****************************** Descendant of TButton/TBitBtn, This component allows you to link a TPopupMenu to the button. Properties/Events MenuPopup: TPopup { Specify A TPopupMenu to Be Executed } ****************************** * TListBitBtn, TListButton * ****************************** Descendant of TBitBtn/TButton, These components allow you maintain a list of menu items and return an index. Properties/Events ItemChecked: Boolean {Allows Currently Selected Item To Show Checked } ItemIndex: Integer {Currently Selected Item Number } Items: TStrings {List of Menu Items} OnChange: TNotifyEvent {Fired After ItemIndex Changes} ---------------------------------------------------------------------------------- MISCELLANEOUS ---------------------------------------------------------------------------------- o Any Assigned Mousedown event Fires BEFORE the menu is displayed. o Pressing SpaceBar on any of the controls generates a WM_LBUTTONDOWN (or MouseDown) event. Please send any comments or enhancements to Jeff Bogatay 74654,3321 rudyj@ic.net